home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Commando Programming ƒ / Rezscripts / RezC.FREF < prev    next >
Encoding:
Text File  |  1989-08-09  |  929 b   |  46 lines  |  [TEXT/MPS ]
  1. ###    File: RezC.FREF
  2. ### Generate Rez input for FREF Resources
  3. ### W. Powell    1988
  4.  
  5. Set Exit 0
  6. If {#} < 3 || {#} > 11
  7.     Echo "### {0} Error: Bad arguments - use Commando">>Dev:StdErr
  8.     Exit 1
  9. End
  10. Set rid {1}
  11. Shift 1
  12. Echo -n "Resource ∂'FREF∂' ({rid}"
  13. If "{1}" == "-nms"
  14.     Set rname "{2}"
  15.     If ("{rname}" != "")
  16.         Echo -n ,∂""{rname}"∂"
  17.     End
  18.     Shift 2
  19. End
  20. Set ftyp "{1}"
  21. Set flid {2}
  22. Shift 2
  23. If "{1}" == "-file"
  24.     Set fnam "{2}"
  25.     Set HasName 1
  26.     Shift 2
  27. Else
  28.     Set HasName 0
  29. End
  30.  
  31. If ( "{1}" == "-sy" ) ; Echo -n ",SysHeap" ; Shift ; End
  32. If ( "{1}" == "-pu" ) ; Echo -n ",Purgeable" ; Shift ; End
  33. If ( "{1}" == "-lo" ) ; Echo -n ",Locked" ; Shift ; End
  34. If ( "{1}" == "-Pr" ) ; Echo -n ",Protected" ; Shift ; End
  35. If ( "{1}" == "-PL" ) ; Echo -n ",PreLoad" ; Shift ; End
  36. Echo ") ∂{"
  37.  
  38. Echo "∂t∂'{ftyp}∂',∂t∂t∂/* File Type *∂/"
  39. Echo "∂t{flid},∂t∂t∂/* ICN# Local ID *∂/"
  40. If HasName
  41.     Echo "∂t∂"{fnam}∂"∂t"
  42. Else
  43.     Echo "∂t∂"∂""
  44. End
  45. Echo "∂};"
  46. Exit 0